@@ -1,5 +1,13 @@
Revision history for Perl module CPAN::Reporter
+1.1801 Fri Sep 10 16:34:29 EDT 2010
+
+ Changed:
+
+ - Default config directory now uses File::HomeDir->my_home on
+ windows instead of ->my_documents. If that directory doesn't exist,
+ it will fall back to ->my_documents.
+
1.1800 Mon Jul 26 16:02:06 EDT 2010
Changed:
@@ -17,16 +17,16 @@ no_index:
provides:
CPAN::Reporter:
file: lib/CPAN/Reporter.pm
- version: 1.1800
+ version: 1.1801
CPAN::Reporter::Config:
file: lib/CPAN/Reporter/Config.pm
- version: 1.1800
+ version: 1.1801
CPAN::Reporter::History:
file: lib/CPAN/Reporter/History.pm
- version: 1.1800
+ version: 1.1801
CPAN::Reporter::PrereqCheck:
file: lib/CPAN/Reporter/PrereqCheck.pm
- version: 1.1800
+ version: 1.1801
requires:
CPAN: 1.9301
Config::Tiny: 2.08
@@ -48,4 +48,4 @@ requires:
Test::Reporter: 1.54
resources:
license: http://www.apache.org/licenses/LICENSE-2.0.txt
-version: 1.1800
+version: 1.1801
@@ -2,7 +2,7 @@ NAME
CPAN::Reporter - Adds CPAN Testers reporting to CPAN.pm
VERSION
- This documentation describes version 1.1800.
+ This documentation describes version 1.1801.
SYNOPSIS
From the CPAN shell:
@@ -8,7 +8,7 @@ CPAN::Reporter::API - Programmer's interface to CPAN::Reporter
=head1 VERSION
-This documentation refers to version 1.1800
+This documentation refers to version 1.1801
=head1 FUNCTIONS
@@ -1,7 +1,7 @@
package CPAN::Reporter::Config;
use strict;
use vars qw/$VERSION/;
-$VERSION = '1.1800';
+$VERSION = '1.1801';
$VERSION = eval $VERSION; ## no critic
use Config::Tiny ();
@@ -308,11 +308,15 @@ sub _get_config_dir {
) {
return $ENV{PERL_CPAN_REPORTER_DIR};
}
- else {
- return ( $^O eq 'MSWin32' )
- ? File::Spec->catdir(File::HomeDir->my_documents, ".cpanreporter")
- : File::Spec->catdir(File::HomeDir->my_home, ".cpanreporter") ;
+
+ my $conf_dir = File::Spec->catdir(File::HomeDir->my_home, ".cpanreporter");
+
+ if ($^O eq 'MSWin32') {
+ my $alt_dir = File::Spec->catdir(File::HomeDir->my_documents, ".cpanreporter");
+ $conf_dir = $alt_dir if -d $alt_dir && ! -d $conf_dir;
}
+
+ return $conf_dir;
}
#--------------------------------------------------------------------------#
@@ -532,8 +536,7 @@ From the CPAN shell:
= DESCRIPTION
Default options for CPAN::Reporter are read from a configuration file
-{.cpanreporter/config.ini} in the user's home directory (Unix and OS X)
-or "My Documents" directory (Windows).
+{.cpanreporter/config.ini} in the user's home directory.
The configuration file is in "ini" format, with the option name and value
separated by an "=" sign
@@ -8,7 +8,7 @@ CPAN::Reporter::Config - Config file options for CPAN::Reporter
=head1 VERSION
-This documentation refers to version 1.1800
+This documentation refers to version 1.1801
=head1 SYNOPSIS
@@ -19,8 +19,7 @@ From the CPAN shell:
=head1 DESCRIPTION
Default options for CPAN::Reporter are read from a configuration file
-C<<< .cpanreporter/config.ini >>> in the user's home directory (Unix and OS X)
-or "My Documents" directory (Windows).
+C<<< .cpanreporter/config.ini >>> in the user's home directory.
The configuration file is in "ini" format, with the option name and value
separated by an "=" sign
@@ -8,7 +8,7 @@ CPAN::Reporter::FAQ - Answers and tips for using CPAN::Reporter
=head1 VERSION
-This documentation refers to version 1.1800
+This documentation refers to version 1.1801
=head1 REPORT GRADES
@@ -1,7 +1,7 @@
package CPAN::Reporter::History;
use strict;
use vars qw/$VERSION @ISA @EXPORT_OK/;
-$VERSION = '1.1800';
+$VERSION = '1.1801';
$VERSION = eval $VERSION; ## no critic
use Config;
@@ -8,7 +8,7 @@ CPAN::Reporter::History - Read or write a CPAN::Reporter history log
=head1 VERSION
-This documentation refers to version 1.1800
+This documentation refers to version 1.1801
=head1 SYNOPSIS
@@ -1,7 +1,7 @@
package CPAN::Reporter::PrereqCheck;
use strict;
use vars qw/$VERSION/;
-$VERSION = '1.1800';
+$VERSION = '1.1801';
$VERSION = eval $VERSION; ## no critic
use ExtUtils::MakeMaker;
@@ -8,7 +8,7 @@ CPAN::Reporter::PrereqCheck - Modulino for prerequisite tests
=head1 VERSION
-This documentation describes version 1.1800.
+This documentation describes version 1.1801.
=head1 SYNOPSIS
@@ -1,7 +1,7 @@
package CPAN::Reporter;
use strict;
use vars qw/$VERSION/;
-$VERSION = '1.1800';
+$VERSION = '1.1801';
$VERSION = eval $VERSION; ## no critic
use Config;
@@ -8,7 +8,7 @@ CPAN::Reporter - Adds CPAN Testers reporting to CPAN.pm
=head1 VERSION
-This documentation describes version 1.1800.
+This documentation describes version 1.1801.
=head1 SYNOPSIS